* man.el (Man-find-section): HP/UX man pages have section names

indented by a single space; recognize them.

diff --git a/lisp/man.el b/lisp/man.el
index 69a9fd8390f863ed7401d287a196633ca09d5734..4eea03d8b5b7bd8a62624aa1ae66564e2d172848 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -655,7 +655,7 @@ The following key bindings are currently in effect in the buffer:
 Returns t if section is found, nil otherwise."
   (let ((curpos (point)))
     (goto-char (point-min))
-    (if (re-search-forward (concat "^" section) (point-max) t)
+    (if (re-search-forward (concat "^\\s-?" section) (point-max) t)
        (progn (beginning-of-line) t)
       (goto-char curpos)
       nil)